Option Explicit
Sub B_Sample008()
    Dim myRng As Range
    Dim myItr As Interior
    Set myRng = Range("A1")	'Nxs
    With myRng
        Set myItr = .Interior
        MsgBox myItr.ColorIndex
    End With
    Set myItr = Nothing		'
    Set myRng = Nothing
End Sub
